R IGNORE/exampleD3Plus.R

In mguevara/rescinnet: Research, Science and Innovation Networks

examples_with_d3 <- function()
{
  library(d3plus)
  # Some networks
  edges_ej <- read.csv(system.file("data/edges.csv", package = "d3plus"))
  nodes_ej <- read.csv(system.file("data/nodes.csv", package = "d3plus"))
  d3plus("rings",edges)
  d3plus("rings", edges, focusDropdown = TRUE)
  d3plus("rings", edges, nodes = nodes,focusDropdown = TRUE)
  d3plus("network", edges_ej)
  nodes_ej['name'] <- nodes_ej$id
  nodes_ej['color'] <- nodes_ej$id
  nodes_ej['color'] <- "#0f0"
  d3plus("network",edges_ej, nodes=nodes_ej)
  d3plus("network",edges_ej)
  k<-d3plus("network",edges_ej, nodes=nodes_ej)
  htmlwidgets::saveWidget(k,"KK.html", selfcontained = FALSE)
  
  
  bubbles['color'] <- bubbles$group
  
  d3plus("tree", bubbles)
  # A scatter plot
  countries <- read.csv(system.file("data/countries.csv", package = "d3plus"))
  d3plus("scatter", countries)
  
  # Grouping bubbles
  bubbles <- read.csv(system.file("data/bubbles.csv", package = "d3plus"))
  d3plus("bubbles", bubbles)
  
  # Some treemaps
  d3plus("tree", countries)
  d3plus("tree", bubbles[c("name","value")], color="group")
  bubbles2 <- bubbles
  bubbles2["color"] <- bubbles2$group
  bubbles2["grouping"] <- TRUE
  d3plus("tree", bubbles2[c("name","value", "color", "grouping" )], grouping="TRUE")
  
  d3plus("tree", pub_total[pub_total$X...Cites>100,c("Title", "X...Cites")], color="red" )
  
  # Some lines
  ## Not working
  #data <- read.csv(system.file("data/expenses", package = "d3plus"))
  #d3plus("lines", data)
  
  # Saving widgets
  s <- d3plus("tree", countries)
  htmlwidgets::saveWidget(s,"index.html", selfcontained = FALSE)
  ## Selfcontained= TRUE not working
  # htmlwidgets::saveWidget(s,"index.html")
  
  
  # A nice shiny app
  library(shiny)
  app <- shinyApp(
    ui = bootstrapPage(
      checkboxInput("swapNCols","Swap columns",value=FALSE),
      d3plusOutput("viz")
    ),
    server = function(input, output) {
      countries <- read.csv(system.file("data/countries.csv", package = "d3plus"))
      output$viz <- renderD3plus({
        d <- countries
        if(input$swapNCols){
          d <- d[c(1,3,2)]
        }
        d3plus("tree",d)
      })
    }
  )
  runApp(app)
  
}